﻿Namespace Compiler.Semantic

    Public Class ExternalTypeReference
        Inherits TypeReference

        Public Sub New(ByVal externalType As Type)
            Debug.Assert(externalType IsNot Nothing)
            m_externalType = externalType
        End Sub

        Private m_externalType As Type
        Public ReadOnly Property ExternalType() As Type
            Get
                Return m_externalType
            End Get
        End Property

        Public Overrides Function GetReflectionType() As System.Type
            Return m_externalType
        End Function
    End Class

End Namespace